home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / KOCH1.LS < prev    next >
Text File  |  1998-05-05  |  826b  |  24 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║   Koch1.ls      │    (c) C.J. van der Mark      ║  
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #║           PCG       9:526/464.3                 ║
  8. #╚═════════════════════════════════════════════════╝
  9. #   This file produces 3D Koch flakes
  10. #    in different state of forming. 
  11. 7
  12. 30
  13. 1
  14. D
  15. D=CzfBzzhzizl
  16. C=B+++&'(.5773503)f'(1.732051)---'(.450694)f'(2.218801)<|B
  17. B=c[[^e[lh]^(70.528779)[li]]>>&e[li]^e+++f---<<<<&e[li]]
  18. l={[+f++++f++++f]}
  19. e=(19.47122)
  20. m=+(54.73561)'(.30618255)f'(3.2660254)-
  21. h=m(54.73561)&&&'(.5)B'(2)                                  
  22. i=m(114.73561)^^^'(.5)B'(2)
  23. @
  24.